home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / ppepakts.zip / HISCORE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-15  |  3KB  |  135 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     Cls
  24.     PrintLn "  @X0ETOP 5 PLAYER SCORES FOR:          NAMES                     SCORE   LAST PLAY"
  25.     PrintLn 
  26.     PrintLn "@X0D┌──┐   │     ┌───┐   ─┬─  ┌──┐"
  27.     PrintLn "@X0D└───┐  │     │   │    │   └───┐"
  28.     PrintLn "@X0D └──┘  └───  └───┘    │    └──┘ "
  29.     For INTEGER001 = 1 To 5
  30.         If (ReadLine(PPEPath() + "slots.cnf", 2) <> 932411) Then
  31.             AnsiPos 33, INTEGER001 + 1
  32.             Print "@X05- "
  33.             Continue
  34.         Endif
  35.         AnsiPos 33, INTEGER001 + 1
  36.         Print "@X05- ", Left(ReadLine(PPEPath() + "slots.dat", INTEGER001 * 3), 20)
  37.         AnsiPos 54, INTEGER001 + 1
  38.         Print "@X05", Right(ReadLine(PPEPath() + "slots.dat", INTEGER001 * 3 + 1), 15)
  39.         AnsiPos 70, INTEGER001 + 1
  40.         Print "@X05", Right(ReadLine(PPEPath() + "slots.dat", INTEGER001 * 3 - 1), 9)
  41.     Next
  42.     Newline
  43.     PrintLn "@X0A──────────────────────────────────────────────────────────────────────────────"
  44.     PrintLn 
  45.     PrintLn "@X0B"
  46.     PrintLn "@X0BBLACKJACK"
  47.     PrintLn "@X0B"
  48.     For INTEGER001 = 1 To 5
  49.         If (ReadLine(PPEPath() + "bj.cnf", 2) <> 942702) Then
  50.             AnsiPos 33, INTEGER001 + 7
  51.             Print "@X0B- "
  52.             Continue
  53.         Endif
  54.         AnsiPos 33, INTEGER001 + 7
  55.         Print "@X0B- ", Left(ReadLine(PPEPath() + "bj.dat", INTEGER001 * 3), 20)
  56.         AnsiPos 54, INTEGER001 + 7
  57.         Print "@X0B", Right(ReadLine(PPEPath() + "bj.dat", INTEGER001 * 3 + 1), 15)
  58.         AnsiPos 70, INTEGER001 + 7
  59.         Print "@X0B", Right(ReadLine(PPEPath() + "bj.dat", INTEGER001 * 3 - 1), 9)
  60.     Next
  61.     Newline
  62.     PrintLn "@X0A──────────────────────────────────────────────────────────────────────────────"
  63.     PrintLn 
  64.     PrintLn "@X0C"
  65.     PrintLn "@X0CCARD SHARKS"
  66.     PrintLn "@X0C"
  67.     For INTEGER001 = 1 To 5
  68.         If (ReadLine(PPEPath() + "cs.cnf", 2) <> 942504) Then
  69.             AnsiPos 33, INTEGER001 + 13
  70.             Print "@X0C- "
  71.             Continue
  72.         Endif
  73.         AnsiPos 33, INTEGER001 + 13
  74.         Print "@X0C- ", Left(ReadLine(PPEPath() + "cs.dat", INTEGER001 * 3), 20)
  75.         AnsiPos 54, INTEGER001 + 13
  76.         Print "@X0C", Right(ReadLine(PPEPath() + "cs.dat", INTEGER001 * 3 + 1), 15)
  77.         AnsiPos 70, INTEGER001 + 13
  78.         Print "@X0C", Right(ReadLine(PPEPath() + "cs.dat", INTEGER001 * 3 - 1), 9)
  79.     Next
  80.     AnsiPos 1, 20
  81.     Wait
  82.     End
  83.  
  84. ;------------------------------------------------------------------------------
  85. ;
  86. ; Usage report (before postprocessing)
  87. ;
  88. ; ■ Statements used :
  89. ;
  90. ;    1       End
  91. ;    1       Cls
  92. ;    1       Wait
  93. ;    12      Goto 
  94. ;    6       Let 
  95. ;    12      Print 
  96. ;    15      PrintLn 
  97. ;    6       If 
  98. ;    2       Newline
  99. ;    13      AnsiPos 
  100. ;
  101. ;
  102. ; ■ Functions used :
  103. ;
  104. ;    9       *
  105. ;    30      +
  106. ;    3       -
  107. ;    3       <>
  108. ;    3       <
  109. ;    3       <=
  110. ;    6       >=
  111. ;    6       !
  112. ;    6       &&
  113. ;    3       ||
  114. ;    3       Left()
  115. ;    6       Right()
  116. ;    12      PPEPath()
  117. ;    12      ReadLine()
  118. ;
  119. ;------------------------------------------------------------------------------
  120. ;
  121. ; Analysis flags : No flag
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Postprocessing report
  126. ;
  127. ;    3       For/Next
  128. ;    0       While/EndWhile
  129. ;    3       If/Then or If/Then/Else
  130. ;    0       Select Case
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;                 AEGiS Corp - Break the routines, code against the machines!
  134. ;------------------------------------------------------------------------------
  135.